;TextLib Include File

 INCLUDE "libraries.inc"
 UseLibrary Text
TextWhite EQU 0


 CreateRoutine Text,SmallNum,2,1
 CreateRoutine Text,LargeNum,2,1
 CreateRoutine Text,SmallChar,3,0
 CreateRoutine Text,LargeChar,3,0  

 EXTERN _LargeText
 EXTERN _SmallText

LargeText MACRO first,second,third,fourth

 segment TextSpace
$$:
       db     third,0
 segment SlideSpace
       db     TextLib,_LargeText
       DB8BIT first
       DB8BIT second
 ifneq "_&fourth" ,"_"
 if fourth=TextWhite
       dw     $B + 8000h
 else
       dw     $B
 endif
 else
       dw     $B
 endif 
 ENDMAC

SmallText MACRO first,second,third,fourth

 segment TextSpace
$$:
       db     third,0
 segment SlideSpace
       db     TextLib,_SmallText
       DB8BIT first
       DB8BIT second
 ifneq "_&fourth" ,"_"
 if fourth=TextWhite
       dw     $B + 8000h
 else
       dw     $B
 endif
 else
       dw     $B
 endif     
 ENDMAC
